home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / T-PRMPTS.ZIP / PRMPTS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-17  |  6KB  |  385 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.     String   STRING026
  45.     String   STRING027
  46.     String   STRING028
  47.     String   STRING029
  48.     String   STRING030
  49.     String   STRING031
  50.     String   STRING032
  51.     String   STRING033
  52.     String   STRING034
  53.     String   STRING035
  54.     String   STRING036
  55.     String   STRING037
  56.     String   STRING038
  57.     String   STRING039
  58.     String   STRING040
  59.     String   STRING041
  60.     String   STRING042
  61.     String   STRING043
  62.     String   STRING044
  63.     String   STRING045
  64.     String   STRING046
  65.     String   STRING047
  66.     String   STRING048
  67.     String   STRING049
  68.     String   STRING050
  69.     String   STRING051
  70.     String   STRING052
  71.     String   STRING053
  72.  
  73. ;------------------------------------------------------------------------------
  74.  
  75.     If (Exist(PPEPath() + "PRMPTS.CFG")) Goto LABEL001
  76.     PrintLn "@X0FP@X07r@X08mpts.cfg @X0FN@X07o@X08t @X0FF@X07o@X08und @X0FP@X07l@X08ease @X0FR@X07e@X08ad @X0CPRMPTS.DOX"
  77.     Newline
  78.     Wait
  79.     End
  80.     :LABEL001
  81.     STRING001 = GetToken()
  82.     If (STRING001 == 4) Then
  83.         STRING002 = ReadLine(PPEPath() + "PRMPTS.CFG", 1)
  84.         Print STRING002
  85.         End
  86.     Endif
  87.     If (STRING001 == 6) Then
  88.         STRING003 = ReadLine(PPEPath() + "PRMPTS.CFG", 2)
  89.         Print STRING003
  90.         End
  91.     Endif
  92.     If (STRING001 == 7) Then
  93.         STRING004 = ReadLine(PPEPath() + "PRMPTS.CFG", 3)
  94.         Print STRING004
  95.         End
  96.     Endif
  97.     If (STRING001 == 8) Then
  98.         STRING005 = ReadLine(PPEPath() + "PRMPTS.CFG", 4)
  99.         Print STRING005
  100.         End
  101.     Endif
  102.     If (STRING001 == 11) Then
  103.         STRING006 = ReadLine(PPEPath() + "PRMPTS.CFG", 5)
  104.         Print STRING006
  105.         End
  106.     Endif
  107.     If (STRING001 == 25) Then
  108.         STRING007 = ReadLine(PPEPath() + "PRMPTS.CFG", 6)
  109.         Print STRING007
  110.         End
  111.     Endif
  112.     If (STRING001 == 26) Then
  113.         STRING008 = ReadLine(PPEPath() + "PRMPTS.CFG", 7)
  114.         Print STRING008
  115.         End
  116.     Endif
  117.     If (STRING001 == 37) Then
  118.         STRING009 = ReadLine(PPEPath() + "PRMPTS.CFG", 8)
  119.         Print STRING009
  120.         End
  121.     Endif
  122.     If (STRING001 == 51) Then
  123.         STRING010 = ReadLine(PPEPath() + "PRMPTS.CFG", 9)
  124.         Print STRING010
  125.         End
  126.     Endif
  127.     If (STRING001 == 55) Then
  128.         STRING011 = ReadLine(PPEPath() + "PRMPTS.CFG", 10)
  129.         Print STRING011
  130.         End
  131.     Endif
  132.     If (STRING001 == 58) Then
  133.         STRING012 = ReadLine(PPEPath() + "PRMPTS.CFG", 11)
  134.         Print STRING012
  135.         End
  136.     Endif
  137.     If (STRING001 == 59) Then
  138.         STRING013 = ReadLine(PPEPath() + "PRMPTS.CFG", 12)
  139.         Print STRING013
  140.         End
  141.     Endif
  142.     If (STRING001 == 61) Then
  143.         STRING014 = ReadLine(PPEPath() + "PRMPTS.CFG", 13)
  144.         Print STRING014
  145.         End
  146.     Endif
  147.     If (STRING001 == 62) Then
  148.         STRING015 = ReadLine(PPEPath() + "PRMPTS.CFG", 14)
  149.         Print STRING015
  150.         End
  151.     Endif
  152.     If (STRING001 == 71) Then
  153.         STRING016 = ReadLine(PPEPath() + "PRMPTS.CFG", 15)
  154.         Print STRING016
  155.         End
  156.     Endif
  157.     If (STRING001 == 72) Then
  158.         STRING017 = ReadLine(PPEPath() + "PRMPTS.CFG", 16)
  159.         Print STRING017
  160.         End
  161.     Endif
  162.     If (STRING001 == 101) Then
  163.         STRING018 = ReadLine(PPEPath() + "PRMPTS.CFG", 17)
  164.         Print STRING018
  165.         End
  166.     Endif
  167.     If (STRING001 == 111) Then
  168.         STRING019 = ReadLine(PPEPath() + "PRMPTS.CFG", 18)
  169.         Print STRING019
  170.         End
  171.     Endif
  172.     If (STRING001 == 118) Then
  173.         STRING020 = ReadLine(PPEPath() + "PRMPTS.CFG", 19)
  174.         Print STRING020
  175.         End
  176.     Endif
  177.     If (STRING001 == 123) Then
  178.         STRING021 = ReadLine(PPEPath() + "PRMPTS.CFG", 20)
  179.         Print STRING021
  180.         End
  181.     Endif
  182.     If (STRING001 == 138) Then
  183.         STRING022 = ReadLine(PPEPath() + "PRMPTS.CFG", 21)
  184.         Print STRING022
  185.         End
  186.     Endif
  187.     If (STRING001 == 139) Then
  188.         STRING023 = ReadLine(PPEPath() + "PRMPTS.CFG", 22)
  189.         Print STRING023
  190.         End
  191.     Endif
  192.     If (STRING001 == 146) Then
  193.         STRING024 = ReadLine(PPEPath() + "PRMPTS.CFG", 23)
  194.         Print STRING024
  195.         End
  196.     Endif
  197.     If (STRING001 == 153) Then
  198.         STRING025 = ReadLine(PPEPath() + "PRMPTS.CFG", 24)
  199.         Print STRING025
  200.         End
  201.     Endif
  202.     If (STRING001 == 160) Then
  203.         STRING026 = ReadLine(PPEPath() + "PRMPTS.CFG", 25)
  204.         Print STRING026
  205.         End
  206.     Endif
  207.     If (STRING001 == 161) Then
  208.         STRING027 = ReadLine(PPEPath() + "PRMPTS.CFG", 26)
  209.         Print STRING027
  210.         End
  211.     Endif
  212.     If (STRING001 == 162) Then
  213.         STRING028 = ReadLine(PPEPath() + "PRMPTS.CFG", 27)
  214.         Print STRING028
  215.         End
  216.     Endif
  217.     If (STRING001 == 199) Then
  218.         STRING029 = ReadLine(PPEPath() + "PRMPTS.CFG", 28)
  219.         Print STRING029
  220.         End
  221.     Endif
  222.     If (STRING001 == 200) Then
  223.         STRING030 = ReadLine(PPEPath() + "PRMPTS.CFG", 29)
  224.         Print STRING030
  225.         End
  226.     Endif
  227.     If (STRING001 == 208) Then
  228.         STRING031 = ReadLine(PPEPath() + "PRMPTS.CFG", 30)
  229.         Print STRING031
  230.         End
  231.     Endif
  232.     If (STRING001 == 217) Then
  233.         STRING032 = ReadLine(PPEPath() + "PRMPTS.CFG", 31)
  234.         Print STRING032
  235.         End
  236.     Endif
  237.     If (STRING001 == 238) Then
  238.         STRING033 = ReadLine(PPEPath() + "PRMPTS.CFG", 32)
  239.         Print STRING033
  240.         End
  241.     Endif
  242.     If (STRING001 == 245) Then
  243.         STRING034 = ReadLine(PPEPath() + "PRMPTS.CFG", 33)
  244.         Print STRING034
  245.         End
  246.     Endif
  247.     If (STRING001 == 273) Then
  248.         STRING035 = ReadLine(PPEPath() + "PRMPTS.CFG", 34)
  249.         Print STRING035
  250.         End
  251.     Endif
  252.     If (STRING001 == 280) Then
  253.         STRING036 = ReadLine(PPEPath() + "PRMPTS.CFG", 35)
  254.         Print STRING036
  255.         End
  256.     Endif
  257.     If (STRING001 == 284) Then
  258.         STRING037 = ReadLine(PPEPath() + "PRMPTS.CFG", 36)
  259.         Print STRING037
  260.         End
  261.     Endif
  262.     If (STRING001 == 290) Then
  263.         STRING038 = ReadLine(PPEPath() + "PRMPTS.CFG", 37)
  264.         Print STRING038
  265.         End
  266.     Endif
  267.     If (STRING001 == 324) Then
  268.         STRING039 = ReadLine(PPEPath() + "PRMPTS.CFG", 38)
  269.         Print STRING039
  270.         End
  271.     Endif
  272.     If (STRING001 == 326) Then
  273.         STRING040 = ReadLine(PPEPath() + "PRMPTS.CFG", 39)
  274.         Print STRING040
  275.         End
  276.     Endif
  277.     If (STRING001 == 328) Then
  278.         STRING041 = ReadLine(PPEPath() + "PRMPTS.CFG", 40)
  279.         Print STRING041
  280.         End
  281.     Endif
  282.     If (STRING001 == 353) Then
  283.         STRING042 = ReadLine(PPEPath() + "PRMPTS.CFG", 41)
  284.         Print STRING042
  285.         End
  286.     Endif
  287.     If (STRING001 == 360) Then
  288.         STRING043 = ReadLine(PPEPath() + "PRMPTS.CFG", 42)
  289.         Print STRING043
  290.         End
  291.     Endif
  292.     If (STRING001 == 366) Then
  293.         STRING044 = ReadLine(PPEPath() + "PRMPTS.CFG", 43)
  294.         Print STRING044
  295.         End
  296.     Endif
  297.     If (STRING001 == 437) Then
  298.         STRING045 = ReadLine(PPEPath() + "PRMPTS.CFG", 44)
  299.         Print STRING045
  300.         End
  301.     Endif
  302.     If (STRING001 == 475) Then
  303.         STRING046 = ReadLine(PPEPath() + "PRMPTS.CFG", 45)
  304.         Print STRING046
  305.         End
  306.     Endif
  307.     If (STRING001 == 478) Then
  308.         STRING047 = ReadLine(PPEPath() + "PRMPTS.CFG", 46)
  309.         Print STRING047
  310.         End
  311.     Endif
  312.     If (STRING001 == 480) Then
  313.         STRING048 = ReadLine(PPEPath() + "PRMPTS.CFG", 47)
  314.         Print STRING048
  315.         End
  316.     Endif
  317.     If (STRING001 == 481) Then
  318.         STRING049 = ReadLine(PPEPath() + "PRMPTS.CFG", 48)
  319.         Print STRING049
  320.         End
  321.     Endif
  322.     If (STRING001 == 482) Then
  323.         STRING050 = ReadLine(PPEPath() + "PRMPTS.CFG", 49)
  324.         Print STRING050
  325.         End
  326.     Endif
  327.     If (STRING001 == 496) Then
  328.         STRING051 = ReadLine(PPEPath() + "PRMPTS.CFG", 50)
  329.         Print STRING051
  330.         End
  331.     Endif
  332.     If (STRING001 == 575) Then
  333.         STRING052 = ReadLine(PPEPath() + "PRMPTS.CFG", 51)
  334.         Print STRING052
  335.         End
  336.     Endif
  337.     If (STRING001 == 728) Then
  338.         STRING053 = ReadLine(PPEPath() + "PRMPTS.CFG", 52)
  339.         Print STRING053
  340.         End
  341.     Endif
  342.  
  343. ;------------------------------------------------------------------------------
  344. ;
  345. ; Usage report (before postprocessing)
  346. ;
  347. ; ■ Statements used :
  348. ;
  349. ;    53      End
  350. ;    1       Wait
  351. ;    53      Goto 
  352. ;    53      Let 
  353. ;    52      Print 
  354. ;    1       PrintLn 
  355. ;    53      If 
  356. ;    1       Newline
  357. ;
  358. ;
  359. ; ■ Functions used :
  360. ;
  361. ;    53      +
  362. ;    52      ==
  363. ;    52      !
  364. ;    53      PPEPath()
  365. ;    52      ReadLine()
  366. ;    1       GetToken()
  367. ;    1       Exist()
  368. ;
  369. ;------------------------------------------------------------------------------
  370. ;
  371. ; Analysis flags : No flag
  372. ;
  373. ;------------------------------------------------------------------------------
  374. ;
  375. ; Postprocessing report
  376. ;
  377. ;    0       For/Next
  378. ;    0       While/EndWhile
  379. ;    52      If/Then or If/Then/Else
  380. ;    0       Select Case
  381. ;
  382. ;------------------------------------------------------------------------------
  383. ;                 AEGiS Corp - Break the routines, code against the machines!
  384. ;------------------------------------------------------------------------------
  385.